home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b3.d64 / program112 < prev    next >
Text File  |  2007-02-28  |  1KB  |  46 lines
  1. 0010 // PROGRAM 112
  2. 0020 //
  3. 0030 // COMELY KATE
  4. 0040 //
  5. 0050 // TO SET UP A SIMPLE STOCK FILE
  6. 0060 //
  7. 0070 // FIRST READ NUMBER OF ITEMS IN STOCK
  8. 0080 READ NUMBER#
  9. 0090 //
  10. 0100 DIM STOCKITEM$ OF 20
  11. 0110 //
  12. 0120 // READ IN STOCK INFORMATION AND PUT IN FILE
  13. 0130 //
  14. 0140 PRINT 
  15. 0150 DELETE "0:STOCK" // SO YOU CAN WRITE IT IN NEXT LINE
  16. 0160 OPEN FILE 2,"0:STOCK",WRITE
  17. 0170 FOR COUNT#:=1 TO NUMBER# DO
  18. 0180 READ STOCKITEM$,NUM
  19. 0190 WRITE FILE 2: STOCKITEM$
  20. 0200 WRITE FILE 2: NUM
  21. 0210 ENDFOR COUNT#
  22. 0220 CLOSE FILE 2
  23. 0230 //
  24. 0240 // NOW READ BACK FILE AND PRINT IT ON THE SCREEN
  25. 0250 //
  26. 0260 DIM ITEM$ OF 20, FIELD$ OF 20
  27. 0270 //FIELD$ NOT USABLE SINCE PRINT USING ONLY IS FOR NUMBERS
  28. 0280 OPEN FILE 2,"0:STOCK",READ
  29. 0290 WHILE NOT EOF(2) DO
  30. 0300 READ FILE 2: ITEM$,NUM
  31. 0310 ITEM$(1:20):=ITEM$ // PAD SPACES ON RIGHT - JUST LIKE PRINT USING
  32. 0320 PRINT USING ITEM$+"#####": NUM
  33. 0330 ENDWHILE 
  34. 0340 CLOSE FILE 2
  35. 0350 //
  36. 0360 DATA 8
  37. 0370 DATA "CORNFLAKES",4560
  38. 0380 DATA "RICE KRISPIES",3987
  39. 0390 DATA "WEETABIX",4138
  40. 0400 DATA "SUGAR PUFFS",2262
  41. 0410 DATA "ALL BRAN",986
  42. 0420 DATA "WHEAT FLAKES",1429
  43. 0430 DATA "PUFFA PUFFA RICE",876
  44. 0440 DATA "FROSTIES",1345
  45. 0450 END 
  46.